﻿<!-- #include file="mymin.asp" -->
<card title="会员管理"><p>
<%


Dim id,msg,rs,delmem
id=getN("id",1)

If id<>1 Then
	msg="<br/><a href=""msg.asp?sid="&sid&"&amp;id="&id&""">发送消息</a>"
	delmem="<br/><a href=""delmember.asp?sid="&sid&"&amp;id="&id&""">删除会员</a>"
End If

set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select top 1 id,name,regtime,regip,logtime,logip,sex,birthday from 74hu_user where id="&id,myconn,1,1
If Not rs.eof	Then
	w "会员ID："&rs("id")&_
		"<br/>用户名："&nowml(rs("name"))&_
		"<br/>性别："&getSex(rs("sex"))&_
		"<br/>生日："&rs("birthday")&_
		"<br/>注册时间："&rs("regtime")&_
		"<br/>注册IP："&rs("regip")&_
		"<br/>最近登录："&rs("logtime")&_
		"<br/>最近登录IP："&rs("logip")& msg &_
		"<br/><a href=""password.asp?sid="&sid&"&amp;id="&id&""">修改账户</a>"& delmem
Else
	w "没有此会员！"
end if
rs.close
set rs=nothing

%>
<br/>温馨提示:修改账户密码等效于加黑会员,该会员将无法登录<br/>
----------<%
call bbsLast
%>